home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 8
/
FM Towns Free Software Collection 8.iso
/
t_os
/
artemis
/
artsrc2
/
sqrt_mat.asm
< prev
next >
Wrap
Assembly Source File
|
1994-06-01
|
505b
|
46 lines
public isqrt
assume cs:cseg,ds:cseg
cseg segment
isqrt proc
mov edx,[esp+4]
mov ecx,040000000h
xor eax,eax
l1:
add eax,ecx
cmp edx,eax
jb j1
sub edx,eax
add eax,ecx
add eax,ecx
j1:
sub eax,ecx
shr eax,1
shr ecx,2
jnz l1
shl edx,10
shl eax,10
mov ecx,0100h
l2:
add eax,ecx
cmp edx,eax
jb j2
sub edx,eax
add eax,ecx
add eax,ecx
j2:
sub eax,ecx
shr eax,1
shr ecx,2
jnz l2
ret
isqrt endp
cseg ends
end